home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1996 #15 / Monster Media Number 15 (Monster Media)(July 1996).ISO / wildcat / ritwc4.zip / RITUAL.WCX (.txt) < prev    next >
Wildcat! WCX  |  1996-04-04  |  20KB  |  1,253 lines
  1. '! Decompiled with wccNosy version 4.20f (freeware)
  2. '! Input File: in.wcx  20250 bytes  03/09/122  08:19:18am
  3. '! Code Segment Size  :11696 bytes
  4. '! Data Segment Size  :5278 bytes
  5. '! String Segment Size:8554 bytes
  6. '! Compiled with WCC version ? 019C017B
  7.  
  8.       Type Type28
  9.         s0 As String*15
  10.         s15 As String*15
  11.         s30 As String*15
  12.         s45 As String*15
  13.         s60 As String*15
  14.         s75 As String*15
  15.         s90 As String*15
  16.         s105 As String*15
  17.         s120 As String*15
  18.         s135 As String*15
  19.         s150 As String*15
  20.         s165 As String*15
  21.       End Type
  22.  
  23.       Type Type27
  24.         s0 As String*15
  25.         s15 As String*15
  26.         s30 As String*15
  27.         s45 As String*15
  28.         s60 As String*15
  29.         s75 As String*15
  30.         s90 As String*15
  31.         s105 As String*15
  32.         s120 As String*15
  33.         s135 As String*15
  34.         s150 As String*15
  35.         s165 As String*15
  36.       End Type
  37.  
  38.       Type Type26
  39.         s0 As String*15
  40.         s15 As String*15
  41.         Filler30(1 To 8) As Byte
  42.         s38 As String*2
  43.         s40 As String*15
  44.         s55 As String*7
  45.         s62 As String*7
  46.         Filler69(1 To 6) As Byte
  47.         s75 As String*1
  48.         s76 As String*3
  49.         s79 As String*3
  50.         Filler82(1 To 36) As Byte
  51.         s118 As String*15
  52.         Filler133(1 To 3) As Byte
  53.         s136 As String*3
  54.         Filler139(1 To 3) As Byte
  55.         s142 As String*4
  56.         s146 As String*4
  57.       End Type
  58.  
  59.       Declare Function Func3749(l65534 As Long, l65532 As Long) As Integer
  60.       Declare Sub Sub4221
  61.       Declare Sub Sub4375
  62.       Declare Sub Sub4634
  63.       Declare Sub Sub4781
  64.       Declare Sub Sub4867
  65.       Declare Sub Sub5363
  66.       Declare Sub Sub5438
  67.       Declare Sub Sub5990
  68.       Declare Sub Sub6040
  69.       Declare Sub Sub6074
  70.       Declare Sub Sub6108
  71.       Declare Sub Sub7642
  72.       Declare Sub Sub9110
  73.       Declare Sub Sub9752
  74.       Declare Sub Sub10399
  75.       Declare Sub Sub10946
  76.       Declare Sub Sub11403
  77.  
  78.       Dim s4463 As String
  79.       Dim l4467 As Long
  80.       Dim s4471 As String
  81.       Dim s4475 As String*1
  82.       Dim s4476 As String
  83.       Dim i4480 As Integer
  84.       Dim i4654 As Integer
  85.       Dim t26_4656 As Type26
  86.       Dim t28_4828 As Type28
  87.       Dim t27_5008 As Type27
  88.       Dim i5190 As Integer
  89.       Dim i5192 As Integer
  90.       Dim i5194 As Integer
  91.       Dim s5196 As String*1
  92.       Dim s5197 As String
  93.       Dim s5201 As String
  94.       Dim s5205 As String
  95.       Dim i5209 As Integer
  96.       Dim s5211 As String
  97.       Dim i5215 As Integer
  98.       Dim i5217 As Integer
  99.       Dim i5219 As Integer
  100.       Dim i5221 As Integer
  101.       Dim i5223 As Integer
  102.       Dim i5225 As Integer
  103.       Dim i5227 As Integer
  104.       Dim i5229 As Integer
  105.       Dim s5231 As String
  106.       Dim t5235 As Time
  107.       Dim s5239 As String
  108.       Dim d5243 As Date
  109.       Dim s5245 As String
  110.       Dim s5253 As String
  111.       Dim i5257 As Integer
  112.       Dim s5259 As String
  113.       Dim s5263 As String*15
  114.  
  115.       Dim l65532_ As Long '! Temporary
  116.  
  117.       s5253 = Str(Node)
  118.       s4475 = "N"
  119.       CurrentDate d5243
  120.       s5245 = FormatDate(d5243, "mm/dd/yy")
  121.       s5197 = "          @07@─────@08@══════════@07@──────"
  122.       i4654 = FreeFile
  123.       s4471 = ProgPath + "ritual.cfg"
  124.       Open s4471 For Input As i4654
  125.       Input #i4654, s4463
  126.       Input #i4654, l4467
  127.       Input #i4654, s4476
  128.       Close i4654
  129.       If Func3749(l4467, (93047)) Then
  130.         i5257 = -1
  131.       Else
  132.   221   i5257 = 0
  133.       End If
  134.   227 If i5257 = -1 Then
  135.         s4475 = "Y"
  136.       Else
  137.   260   s4475 = "N"
  138.         s4476 = "UNREGISTERED COPY"
  139.       End If
  140.   280 If Exists(ProgPath + "ritmaint.dat") Then
  141.         i4654 = FreeFile
  142.         Open ProgPath + "ritmaint.dat" For Input As i4654
  143.         Input #i4654, s5259
  144.         Close i4654
  145.         s5259 = UCase(s5259)
  146.         If s5259 <> s5245 Then
  147.           Del ProgPath + "ritplay.dat"
  148.           Del ProgPath + "ritmaint.dat"
  149.           If Exists(ProgPath + "ritdead.txt") Then
  150.             CopyFile(ProgPath + "ritdead.txt", ProgPath + "ritprev.txt")
  151.             Del ProgPath + "ritdead.txt"
  152.           End If
  153.         End If
  154.       End If
  155.   462 If Exists(ProgPath + "ritdead.txt") Then
  156.       Else
  157.   487   Open ProgPath + "ritdead.txt" For Output As i4654
  158.         Print #i4654, "@04@Sacrifices for the day of " + "@0C@" + s5245
  159.         Print #i4654, "       @07@─────@08@══════════@07@──────"
  160.         Close i4654
  161.       End If
  162.   562 i4654 = FreeFile
  163.       Open s4463 + "lachuser.dat" For Random As i4654 Len = 172 '! This value should probably be replaced with a "SizeOf" expression
  164.       i4480 = 0
  165.       Do
  166.   605   i4480 = i4480 + 1
  167.         Get i4654, i4480, t26_4656 '! 172 bytes
  168.         If InStr(UCase(t26_4656.s0), UCase(Pad(User.Name, 15))) Then
  169.           GoTo 695
  170.         End If
  171.   679 Loop While Not EOF(i4654)
  172.   695 Close i4654
  173.       Sub11403
  174.       If Exists(s4463 + "armour.dat") Then
  175.         Open s4463 + "armour.dat" For Random As i4654 Len = 180 '! This value should probably be replaced with a "SizeOf" expression
  176.         Get i4654, -1, t28_4828 '! 180 bytes
  177.         Close i4654
  178.       Else
  179.   788   Cls 
  180.         Sub6040
  181.         Locate 5, 12
  182.         Print "@BELL@@84@ERROR!! ERROR!! @04@ARMOUR.DAT FILE NOT FOUND!!!!!!"
  183.         Locate 7, 12
  184.         Print "@04@Please Notify the SysOp of this Error IMMEDIATELY!!"
  185.         Sub4781
  186.         Sub5990
  187.       End If
  188.   841 If Exists(s4463 + "weapon.dat") Then
  189.         Open s4463 + "weapon.dat" For Random As i4654 Len = 180 '! This value should probably be replaced with a "SizeOf" expression
  190.         Get i4654, -1, t27_5008 '! 180 bytes
  191.         Close i4654
  192.       Else
  193.   920   Cls 
  194.         Sub6040
  195.         Locate 5, 12
  196.         Print "@BELL@@84@ERROR!! ERROR!! @04@WEAPON.DAT FILE NOT FOUND!!!!!!"
  197.         Locate 7, 12
  198.         Print "@04@Please Notify the SysOp of this Error IMMEDIATELY!!"
  199.         Sub4781
  200.         Sub5990
  201.       End If
  202.   973 If Exists(ProgPath + "ritplay.dat") Then
  203.         i4654 = FreeFile
  204.         Open ProgPath + "ritplay.dat" For Input As i4654
  205.         Do
  206.  1028     Input #i4654, s5263
  207.           If InStr(UCase(s5263), UCase(t26_4656.s0)) Then
  208.             Close i4654
  209.             GoTo 1111
  210.           End If
  211.  1081   Loop While Not EOF(i4654)
  212.         Close i4654
  213.       End If
  214.  1105 GoTo 1169
  215.  1111 MorePrompt(0)
  216.       Cls 
  217.       Sub6040
  218.       Locate 5, 12
  219.       Print "@0D@Sorry....It appears that you have already visited today."
  220.       Locate 7, 12
  221.       Print "@0D@Come back tomorrow - and DON'T FORGET YOUR SANITY!!!!!"
  222.       Sub4781
  223.       Sub5990
  224.  1169 i4654 = FreeFile
  225.       Open ProgPath + "ritplay.dat" For Append As i4654
  226.       Print #i4654, UCase(t26_4656.s0)
  227.       Close i4654
  228.       i4654 = FreeFile
  229.       Open ProgPath + "ritmaint.dat" For Output As i4654
  230.       Print #i4654, UCase(s5245)
  231.       Close i4654
  232.       Cls 
  233.       MorePrompt(0)
  234.       DisplayTextFile(ProgPath + "ritual1.bbs")
  235.       Locate 16, 21
  236.       Print "@05@Version: @0D@.66 @08@(Beta @07@2@08@/@07@3@08@/@07@96@08@)"
  237.       Locate 17, 31
  238.       Print "@0D@" + s4476
  239.       Locate 18, 31
  240.       If s4475 = "Y" Then
  241.         Print "@0D@" + MakeWild.BBSName
  242.       Else
  243.  1402   Print "@0D@UNREGISTERED BBS"
  244.       End If
  245.  1411 Sub4221
  246.       Sub4781
  247.       Cls 
  248.       MorePrompt(0)
  249.       Sub6040
  250.       Locate 5, 9
  251.       Print "@05@You wander into what appears to be an ancient place of worship@08@."
  252.       Locate 6, 9
  253.       Print "@05@There are many relics and artifacts here@07@.@08@.@07@.@08@.@07@.@08@.@07@."
  254.       Locate 7, 9
  255.       Print "@05@Some are hanging from the walls@07@.@08@.@07@.@05@and some are on shelves@08@."
  256.       Locate 8, 9
  257.       Print "@05@The atmosphere is very forboding@07@.@08@.@07@.@08@.@07@.@08@.@07@.@08@.@07@."
  258.       If Exists(ProgPath + "lastded.dat") Then
  259.         Open ProgPath + "lastded.dat" For Input As i4654
  260.         Input #i4654, s5239
  261.         Close i4654
  262.         If t26_4656.s15 = s5239 Then
  263.           GoTo 1639
  264.         End If
  265.  1594   Locate 9, 9
  266.         Print "@05@You see the corpse of " + "@0D@" + Trim(s5239) + "@05@ in a corner@07@.@08@.@07@.@08@."
  267.       Else
  268.  1639   Locate 9, 9
  269.         Print "@05@You see the decayed remains of a Warrior in a corner@07@.@08@.@07@.@08@.@07@."
  270.       End If
  271.  1655 Locate 10, 9
  272.       Print "@05@You feel as though you are being watched closely@07@.@08@.@07@.@08@.@07@.@08@.@07@.@08@."
  273.       Locate 11, 9
  274.       Print "@05@But that's ridiculous! There's no one here!@07@.@08@.@07@.@08@.@07@.@08@.@07@.@08@.@07@.@08@.@07@."
  275.       Delay 2
  276.       Locate 13, 30
  277.       Print "@05@or is there??"
  278.       Sub4781
  279.       Sub6040
  280.       Locate 5, 9
  281.       Print "@05@You hear some shuffling sounds from behind a curtain@07@.@08@.@07@.@08@.@07@.@08@."
  282.       Locate 6, 9
  283.       Print "@05@You yell in your most fierce growl@07@.@08@.@07@.@08@.@07@.@08@.@07@.@0D@WHO GOES THERE@05@?!?"
  284.       Locate 7, 9
  285.       Print "@05@There's no response@07@.@08@.@07@.@08@.@07@.@08@.@07@.@08@."
  286.       Locate 8, 9
  287.       Print "@05@Then the room begins to fill with a very eerie @08@Opaque Mist@07@.@08@.@07@.@08@.@07@."
  288.       Locate 9, 9
  289.       Print "@05@As suddenly as it appears it vanishes@07@.@08@.@07@.@08@.@07@.@08@."
  290.       Locate 10, 9
  291.       Print "@05@Before you stands a very evil and powerful looking Warlock@08@."
  292.       Delay 2
  293.       Locate 12, 30
  294.       Print "@0D@The Warlock speaks"
  295.       Sub4781
  296.       Sub6040
  297.       Locate 5, 9
  298.       Print "@05@I know of many things@07@.@08@.@07@.@08@.@07@.@08@.@07@.@08@."
  299.       Locate 6, 9
  300.       Print "@05@You are the warrior known as " + "@0D@" + Trim(t26_4656.s15) + "@05@ - are you not??"
  301.       Locate 7, 9
  302.       Print "@05@It is as I thought@07@.@08@.@07@.@08@.@07@.@08@.@05@You cannot hide your thoughts from me@07@.@08@."
  303.       Locate 8, 9
  304.       Print "@05@I also know of your intent to kill my master@07@.@08@.@07@.@08@.@07@.@0D@The Lachrymator@05@."
  305.       Locate 9, 9
  306.       Print "@05@I will not make him aware of your quest of course@07@.@08@.@07@.@08@.@07@."
  307.       Locate 10, 9
  308.       Print "@05@I shall profit greatly from his demise@08@."
  309.       Locate 11, 9
  310.       Print "@05@If you can bring yourself to trust me @08@- @05@I can help you@07@.@08@.@07@.@08@.@07@."
  311.       Locate 12, 9
  312.       Print "@05@But I warn you@07@.@08@.@07@.@08@.@05@my services are not without risk@07@.@08@.@07@.@08@.@07@ ."
  313.       Delay 2
  314.       Locate 14, 9
  315.       Print "@05@Might I interest you in my more than generous offer (@0D@Y@05@/@0D@N@05@)??"
  316.       Do
  317.  2036   Locate 23, 1
  318.         s5196 = InKey(1213417543)
  319.         If InStr("YN", UCase(s5196)) Then
  320.           GoTo 2092
  321.         End If
  322.  2086 Loop
  323.  2092 If (UCase(s5196) = "N") = 0 Then GoTo 2303
  324.       Do
  325.  2114   Sub6040
  326.         Locate 5, 9
  327.         Print "@05@You are a foolish stupid warrior, " + "@0D@" + Trim(t26_4656.s15) + "@05@!!!!"
  328.         Locate 6, 9
  329.         Print "@05@For your insolence I should by all means take your life@07@.@08@.@07@.@08@.@07@.@08@."
  330.         Locate 7, 9
  331.         Print "@05@But as we all know@07@.@08@.@07@.@05@The Master won't allow it@07@.@08@.@07@.@08@.@07@.@08@.@07@."
  332.         Locate 8, 9
  333.         Print "@05@Well@07@.@08@.@07@.@05@not without your permission of course@07@.@08@.@07@.@08@.@07@.@08@."
  334.         Locate 9, 9
  335.         Print "@05@I'm sure you wouldn't do that@07@.@08@.@07@.@08@.@05@you're too smart for that@07@.@08@.@07@."
  336.         Locate 10, 9
  337.         Print "@05@So I guess I have to send you back to the world@07@.@08@.@07@.@08@.@07@.@08@.@07@."
  338.         Locate 11, 9
  339.         Print "@05@I'll get you sooner or later@07@.@08@.@07@.@05@you can count on that Warrior!"
  340.         Delay 2
  341.         Locate 13, 9
  342.         Print "@05@With those words you are teleported back to the realm@07@.@08@.@07@.@08@.@07@."
  343.         Sub4781
  344.         Sub5990
  345.         GoTo 3064
  346.  2303   If (UCase(s5196) = "Y") = 0 Then GoTo 3064
  347.         Sub6040
  348.         Locate 5, 9
  349.         Print "@05@Then it shall be@07@.@08@.@07@.@08@.@07@.@08@.@07@.@08@.@07@."
  350.         Locate 6, 9
  351.         Print "@05@First you must voluntarily lie upon my sacrificial altar@07@.@08@.@07@."
  352.         Locate 7, 9
  353.         Print "@0D@" + Trim(t26_4656.s15) + "@05@, are you willing to do this of your own free will?"
  354.         Locate 9, 9
  355.         Print "@05@(@0D@I@05@)'m willing to make this sacrifice mighty @0D@Warlock!"
  356.         Locate 11, 9
  357.         Print "@05@(@0D@T@05@)ake a flying leap @0D@Warlock@05@! I'm outa here!"
  358.         Do
  359.  2433     Locate 23, 1
  360.           s5196 = InKey(1213417543)
  361.           If InStr("IT", UCase(s5196)) Then
  362.             GoTo 2489
  363.           End If
  364.  2483   Loop
  365.  2489   If (UCase(s5196) = "T") = 0 Then GoTo 2523
  366.       Loop
  367.       GoTo 3064
  368.  2523 If UCase(s5196) = "I" Then
  369.         Sub6074
  370.         Locate 5, 9
  371.         Print "@0D@What can it hurt? @05@You think to yourself@07@.@08@.@07@.@08@.@07@."
  372.         Locate 6, 9
  373.         Print "@05@Nervously you eye the altar@07@.@08@.@07@.@08@.@07@.@08@.@07@.@08@."
  374.         Locate 7, 9
  375.         Print "@05@The carved stone and hardwood makes you a bit uneasy@07@.@08@.@07@."
  376.         Locate 8, 9
  377.         Print "@05@The heavy scent of death fills the air@07@.@08@.@07@.@08@.@07@.@08@.@07@.@08@.@07@.@08@."
  378.         Locate 9, 9
  379.         Print "@05@You carefully lie down on the table@07@.@08@.@07@.@08@.@07@.@08@.@07@.@08@."
  380.         Locate 10, 9
  381.         Print "@05@Suddenly @0D@MaGiC ChAiNs @05@bind you to the altar!"
  382.         Locate 11, 9
  383.         Print "@05@You can't move!! Now what's going to happen to you???"
  384.         Sub4781
  385.         Sub6074
  386.         Locate 5, 9
  387.         Print "@0D@The Warlock @05@utters some ancient spells and incantations@07@.@08@.@07@.@08@.@07@."
  388.         Locate 6, 9
  389.         Print "@05@The room starts to spin@07@.@08@.@07@.@08@.@05@you feel @0D@REALLY SICK@05@!!"
  390.         Locate 7, 9
  391.         Print "@0D@Now we must wait@07@.@08@.@07@.@08@.@05@mutters @0D@The Warlock@07@.@08@.@07@.@08@.@07@.@08@."
  392.         Locate 8, 9
  393.         Print "@05@Your fate lies in the hands of your gods now " + "@0D@" + Trim(t26_4656.s15) + "@05@."
  394.         Locate 20, 17
  395.         Sub4867
  396.         Sub4781
  397.         Sub6074
  398.         Locate 5, 9
  399.         Print "@05@The room is suddenly filled by a blinding flash of light@07@.@08@.@07@.@08@.@07@.@08@."
  400.         Locate 6, 9
  401.         Print "@05@When the room returns to normal the @0D@MaGiC ChAiNs @05@vanish@07@.@08@.@07@.@08@."
  402.         Locate 7, 9
  403.         Print "@05@You can now move freely!"
  404.         Locate 8, 9
  405.         Print "@0D@The Warlock @05@is no longer here @08@-@05@ Where did he go??"
  406.         Locate 9, 9
  407.         Print "@05@Oh well@07@.@08@.@07@.@05@it's probably for the best anyways@07@.@08@.@07@.@08@.@07@.@08@.@07@."
  408.         Locate 10, 9
  409.         Print "@0D@The Warlock @05@makes you nervous@07@.@08@.@07@.@08@.@07@.@08@.@07@.@08@.@07@.@08@.@07@.@08@."
  410.         Locate 11, 9
  411.         Print "@05@You get up and take stock in yourself@07@.@08@.@07@.@08@.@07@.@08@."
  412.         Sub4867
  413.         Sub4781
  414.         Sub6074
  415.         Locate 5, 9
  416.         Print "@05@After carefully looking over yourself you notice a change@07@.@08@.@07@.@08@.@07@."
  417.         Locate 6, 9
  418.         Print "@05@Yes indeed@07@.@08@.@07@.@08@.@05@there has been a change made!"
  419.         Locate 8, 9
  420.         Print "@0D@Through this experience you have gained the following:"
  421.         Locate 10, 21
  422.         Print "@01@▐@08@■@07@■@0F@■@07@■@08@■@18@▌@07@»»»»»»»»»»»»»»»»»»»»»»»»»»»»"
  423.         Locate 12, 21
  424.         Print "@07@««««««««««««««««««««««««««««@18@▐@08@■@07@■@0F@■@07@■@08@■@01@▌"
  425.         Sub10946
  426.         Locate i5192, i5194
  427.         Print "@0D@" + s5211
  428.         Sub4781
  429.         If (i5215 = 1) = 0 Then GoTo 3064
  430.       Else
  431.  3064   Sub6074
  432.         Sub4375
  433.         Locate 4, 9
  434.         Print "@05@You shriek in agonizing pain@07@.@08@.@07@.@08@.@07@.@08@."
  435.         Locate 5, 9
  436.         Print "@05@You begin to vomit all over yourself@07@.@08@.@07@.@08@.@07@.@08@."
  437.         Locate 6, 9
  438.         Print "@05@Blood starts to seep from all your pores@07@.@08@.@07@.@08@.@07@."
  439.         Locate 7, 9
  440.         Print "@05@You feel a great pressure building up inside your head"
  441.         Locate 8, 9
  442.         Print "@05@Then you EXPLODE! Your body parts are strewn across the room!"
  443.         Locate 9, 9
  444.         Print "@05@The last thing you remember as you die is@07@.@08@.@07@.@08@.@07@.@08@.@0D@The Warlock@08@."
  445.         Locate 10, 9
  446.         Print "@05@He's standing over your mangled body@07@.@08@.@07@.@08@.@07@.@08@.@05@Then he hisses"
  447.         Locate 11, 9
  448.         Print "@05@Your SOUL will make a splendid GIFT to the Lachrymator@07@.@08@.@07@.@05@Warrior!"
  449.         Locate 12, 15
  450.         Print "@8D@YOU HAVE DIED!!!.......RETURNING TO LACHRYMATOR"
  451.         Open ProgPath + "lastded.dat" For Output As i4654
  452.         Print #i4654, t26_4656.s15
  453.         Close i4654
  454.         Sub4781
  455.         If s4475 = "N" Then
  456.           Sub5438
  457.         End If
  458.  3305   End 
  459.       End If
  460.       Do
  461.         Do
  462.  3306     Sub6040
  463.           Locate 5, 9
  464.           Print "@05@You now have something to tell your grandkids about@07@.@08@.@07@.@08@."
  465.           Locate 6, 9
  466.           Print "@05@You have survived @0D@T@05@he @0D@R@05@itual @0D@A@05@ltar!!"
  467.           Locate 7, 9
  468.           Print "@05@For today at least@07@.@08@.@07@.@08@.@07@.@05@there's always another day!"
  469.           Locate 8, 9
  470.           Print "@05@But you can at least say that you lived@07@.@08@.@07@.@08@.@07@.@08@.@07@.@08@.@07@."
  471.           Locate 9, 9
  472.           Print "@05@Some warriors aren't as lucky@07@.@08@.@07@.@08@.@07@.@08@.@07@.@08@."
  473.           Locate 10, 9
  474.           Print "@05@Would you care to see those that have perished in this realm?"
  475.           Locate 12, 20
  476.           Print "@05@(@0D@T@05@)oday's Sacrifices"
  477.           Locate 13, 20
  478.           Print "@05@(@0D@Y@05@)esterday's Sacrifices"
  479.           Locate 14, 20
  480.           Print "@05@(@0D@Q@05@)uit back to Lachrymator"
  481.           Do
  482.  3456       Locate 23, 1
  483.             s5196 = InKey(1213417543)
  484.             If InStr("TYQ", UCase(s5196)) Then
  485.               GoTo 3512
  486.             End If
  487.  3506     Loop
  488.  3512     If (UCase(s5196) = "T") = 0 Then GoTo 3588
  489.           If Exists(ProgPath + "ritdead.txt") Then
  490.             Cls 
  491.             DisplayTextFile(ProgPath + "ritdead.txt")
  492.             Sub4781
  493.           End If
  494.  3576   Loop
  495.         GoTo 3692
  496.  3588   If (UCase(s5196) = "Y") = 0 Then GoTo 3664
  497.         If Exists(ProgPath + "ritprev.txt") Then
  498.           Cls 
  499.           DisplayTextFile(ProgPath + "ritprev.txt")
  500.           Sub4781
  501.         End If
  502.  3652 Loop
  503.       GoTo 3692
  504.  3664 If UCase(s5196) = "Q" Then
  505.         Sub5990
  506.       End If
  507.  3692 End 
  508.  
  509. '! Called 1 time
  510.       Function Func3749(l65534 As Long, l65532 As Long) As Integer
  511.         Dim l65467 As Long
  512.         Dim i65471 As Integer
  513.         Dim l65473 As Long
  514.         Dim i65477 As Integer
  515.         Dim s65483 As String*7
  516.         Dim s65490 As String*30
  517.         Dim l65520 As Long
  518.         Dim l65524 As Long
  519.         Dim i65528 As Integer
  520.  
  521.         s65490 = UCase(MakeWild.BBSName)
  522.         s65490 = Trim(s65490)
  523.         l65524 = 0
  524.  3826   For i65528 = 1 To Len(s65490) Step 1
  525.           l65524 = l65524 + Asc(Mid(s65490, i65528, 1))
  526.         Next
  527.  3930   s65483 = UCase(MakeWild.RegString)
  528.         s65483 = Trim(s65483)
  529.         l65520 = 0
  530.  3999   For i65528 = 1 To Len(s65483) Step 1
  531.           l65520 = l65520 + Asc(Mid(s65483, i65528, 1))
  532.         Next
  533.  4103   l65520 = l65520 + l65524
  534.         l65520 = l65520 * 7
  535.         l65520 = l65520 * l65532
  536.         l65520 = l65520 + l65532
  537.         If l65520 = l65534 Then
  538.           Func3749 = - 1
  539.         Else
  540.  4207     Func3749 = 0
  541.         End If
  542.  4213
  543.       End Function
  544.  
  545. '! Called 1 time
  546.       Sub Sub4221
  547.         s5201 = "@0C@" + Trim(t26_4656.s15) + " @04@traveled to @0C@T@04@he @0C@R@04@itual @0C@A@04@ltar@84@!"
  548.         s5205 = "@04@Hmmmm....I wonder why " + "@0C@" + Trim(t26_4656.s15) + "@04@ went there?"
  549.         Open s4463 + "today.txt" For Append As i4654
  550.         Print #i4654, s5201
  551.         Print #i4654, s5205
  552.         Print #i4654, s5197
  553.         Close i4654
  554.       End Sub
  555.  
  556. '! Called 1 time
  557.       Sub Sub4375
  558.         s5201 = "@0C@" + Trim(t26_4656.s15) + " @04@was sacrificed on @0C@T@04@he @0C@R@04@itual @0C@A@04@ltar@84@!"
  559.         s5205 = "@04@We all shall mourn the passing of " + "@0C@" + Trim(t26_4656.s15) + " @04@the Warrior...."
  560.         Open s4463 + "today.txt" For Append As i4654
  561.         Print #i4654, s5201
  562.         Print #i4654, s5205
  563.         Print #i4654, s5197
  564.         Close i4654
  565.         CurrentTime t5235
  566.         s5231 = FormatTime(t5235, "hh:mm:ss")
  567.         Open ProgPath + "ritdead.txt" For Append As i4654
  568.         Print #i4654, "@0C@" + Trim(t26_4656.s15) + "@04@ was sacrificed at " + "@0C@" + s5231
  569.         Close i4654
  570.       End Sub
  571.  
  572. '! Called 1 time
  573.       Sub Sub4634
  574.         s5201 = "@0C@" + Trim(t26_4656.s15) + " @04@managed to make it back alive from @0C@T@04@he @0C@R@04@itual @0C@A@04@ltar@84@!"
  575.         s5205 = "@0C@" + Trim(t26_4656.s15) + " @04@has had a RELIGIOUS EXPERIENCE!!!"
  576.         Open s4463 + "today.txt" For Append As i4654
  577.         Print #i4654, s5201
  578.         Print #i4654, s5205
  579.         Print #i4654, s5197
  580.         Close i4654
  581.       End Sub
  582.  
  583. '! Called 15 times
  584.       Sub Sub4781
  585.         Locate 22, 27
  586.         Print "@0D@Stroke a @0F@KEY, @0D@Warrior!@0A@ "
  587.         Do
  588.  4806     s5196 = InKey(1213417543)
  589.           If UCase(s5196) > "" Then
  590.             GoTo 4854
  591.           End If
  592.  4848   Loop
  593.  4854   Locate 22, 1
  594.         ClrEOL 
  595.       End Sub
  596.  
  597. '! Called 2 times
  598.       Sub Sub4867
  599.         Dim l65512 As Long
  600.         Dim i65516 As Integer
  601.         Dim l65518 As Long
  602.         Dim i65522 As Integer
  603.         Dim l65524 As Long
  604.         Dim i65528 As Integer
  605.         Dim l65530 As Long
  606.         Dim i65534 As Integer
  607.  
  608.  4897   For i5190 = 17 To 27 Step 1
  609.           Locate 20, i5190
  610.           Print "@0D@░"
  611.           Delay 0.1
  612.         Next
  613.  4997
  614.  5018   For i5190 = 28 To 38 Step 1
  615.           Locate 20, i5190
  616.           Print "@0D@▒"
  617.           Delay 0.1
  618.         Next
  619.  5118
  620.  5139   For i5190 = 39 To 49 Step 1
  621.           Locate 20, i5190
  622.           Print "@0D@▓"
  623.           Delay 0.1
  624.         Next
  625.  5239
  626.  5260   For i5190 = 50 To 58 Step 1
  627.           Locate 20, i5190
  628.           Print "@0D@█"
  629.           Delay 0.1
  630.         Next
  631.  5360
  632.       End Sub
  633.  
  634. '! Called 5 times
  635.       Sub Sub5363
  636.         i4654 = FreeFile
  637.         Open s4463 + "lachuser.dat" For Random As i4654 Len = 172 '! This value should probably be replaced with a "SizeOf" expression
  638.         Put i4654, i4480, t26_4656 '! 172 bytes
  639.         Close i4654
  640.       End Sub
  641.  
  642. '! Called 2 times
  643.       Sub Sub5438
  644.         Dim l65512 As Long
  645.         Dim i65516 As Integer
  646.         Dim l65518 As Long
  647.         Dim i65522 As Integer
  648.         Dim l65524 As Long
  649.         Dim i65528 As Integer
  650.         Dim l65530 As Long
  651.         Dim i65534 As Integer
  652.  
  653.         Cls 
  654.         MorePrompt(0)
  655.         Locate 8, 17
  656.         Print "  @84@UNREGISTERED PROGRAM - PLEASE REGISTER"
  657.         Locate 9, 17
  658.         Print "@0D@┌@05@───────────────────@0D@┬@05@────────────────────@0D@┐"
  659.         Locate 11, 17
  660.         Print "@0D@└@05@───────────────────@0D@┴@05@────────────────────@0D@┘"
  661.  5524   For i5190 = 17 To 27 Step 1
  662.           Locate 10, i5190
  663.           Print "@0D@░"
  664.           Delay 0.1
  665.         Next
  666.  5624
  667.  5645   For i5190 = 28 To 38 Step 1
  668.           Locate 10, i5190
  669.           Print "@0D@▒"
  670.           Delay 0.1
  671.         Next
  672.  5745
  673.  5766   For i5190 = 39 To 49 Step 1
  674.           Locate 10, i5190
  675.           Print "@0D@▓"
  676.           Delay 0.1
  677.         Next
  678.  5866
  679.  5887   For i5190 = 50 To 58 Step 1
  680.           Locate 10, i5190
  681.           Print "@0D@█"
  682.           Delay 0.1
  683.         Next
  684.  5987
  685.       End Sub
  686.  
  687. '! Called 5 times
  688.       Sub Sub5990
  689.         Sub4634
  690.         Sub5363
  691.         If s4475 = "N" Then
  692.           Sub5438
  693.         End If
  694.  6036   End 
  695.       End Sub
  696.  
  697. '! Called 9 times
  698.       Sub Sub6040
  699.         Cls 
  700.         MorePrompt(0)
  701.         DisplayTextFile(ProgPath + "ritual2.bbs")
  702.       End Sub
  703.  
  704. '! Called 5 times
  705.       Sub Sub6074
  706.         Cls 
  707.         MorePrompt(0)
  708.         DisplayTextFile(ProgPath + "ritual3.bbs")
  709.       End Sub
  710.  
  711. '! Called 1 time
  712.       Sub Sub6108
  713.         Dim s65521 As String*15
  714.  
  715.         i5215 = 1
  716.         i5217 = Val(Trim(t26_4656.s38))
  717.         If i5217 = 1 Then
  718.           s65521 = t27_5008.s15
  719.         End If
  720.  6176   If i5217 = 2 Then
  721.           s65521 = t27_5008.s30
  722.         End If
  723.  6207   If i5217 = 3 Then
  724.           s65521 = t27_5008.s45
  725.         End If
  726.  6238   If i5217 = 4 Then
  727.           s65521 = t27_5008.s60
  728.         End If
  729.  6269   If i5217 = 5 Then
  730.           s65521 = t27_5008.s75
  731.         End If
  732.  6300   If i5217 = 6 Then
  733.           s65521 = t27_5008.s75
  734.         End If
  735.  6331   If i5217 = 7 Then
  736.           s65521 = t27_5008.s75
  737.         End If
  738.  6362   If i5217 = 8 Then
  739.           s65521 = t27_5008.s75
  740.         End If
  741.  6393   If i5217 = 9 Then
  742.           s65521 = t27_5008.s75
  743.         End If
  744.  6424   If i5217 = 10 Then
  745.           s65521 = t27_5008.s75
  746.         End If
  747.  6455   If i5217 = 11 Then
  748.           s65521 = t27_5008.s90
  749.         End If
  750.  6486   If i5217 = 12 Then
  751.           s65521 = t27_5008.s105
  752.         End If
  753.  6517   If t26_4656.s40 = "YOUR FISTS     " Then
  754.           i5225 = 0
  755.         End If
  756.  6546   If t26_4656.s40 = t27_5008.s0 Then
  757.           i5225 = - 10
  758.         End If
  759.  6579   If t26_4656.s40 = t27_5008.s15 Then
  760.           i5225 = - 20
  761.         End If
  762.  6616   If t26_4656.s40 = t27_5008.s30 Then
  763.           i5225 = - 30
  764.         End If
  765.  6653   If t26_4656.s40 = t27_5008.s45 Then
  766.           i5225 = - 40
  767.         End If
  768.  6690   If t26_4656.s40 = t27_5008.s60 Then
  769.           i5225 = - 50
  770.         End If
  771.  6727   If t26_4656.s40 = t27_5008.s75 Then
  772.           i5225 = - 60
  773.         End If
  774.  6764   If t26_4656.s40 = t27_5008.s90 Then
  775.           i5225 = - 70
  776.         End If
  777.  6801   If t26_4656.s40 = t27_5008.s105 Then
  778.           i5225 = - 80
  779.         End If
  780.  6838   If t26_4656.s40 = t27_5008.s120 Then
  781.           i5225 = - 90
  782.         End If
  783.  6875   If t26_4656.s40 = t27_5008.s135 Then
  784.           i5225 = - 110
  785.         End If
  786.  6912   If t26_4656.s40 = t27_5008.s150 Then
  787.           i5225 = - 150
  788.         End If
  789.  6949   If t26_4656.s40 = t27_5008.s165 Then
  790.           i5225 = - 250
  791.         End If
  792.  6986   If s65521 = "YOUR FISTS     " Then
  793.           i5221 = 0
  794.         End If
  795.  7011   If s65521 = t27_5008.s0 Then
  796.           i5221 = 10
  797.         End If
  798.  7038   If s65521 = t27_5008.s15 Then
  799.           i5221 = 20
  800.         End If
  801.  7069   If s65521 = t27_5008.s30 Then
  802.           i5221 = 30
  803.         End If
  804.  7100   If s65521 = t27_5008.s45 Then
  805.           i5221 = 40
  806.         End If
  807.  7131   If s65521 = t27_5008.s60 Then
  808.           i5221 = 50
  809.         End If
  810.  7162   If s65521 = t27_5008.s75 Then
  811.           i5221 = 60
  812.         End If
  813.  7193   If s65521 = t27_5008.s90 Then
  814.           i5221 = 70
  815.         End If
  816.  7224   If s65521 = t27_5008.s105 Then
  817.           i5221 = 80
  818.         End If
  819.  7255   If s65521 = t27_5008.s120 Then
  820.           i5221 = 90
  821.         End If
  822.  7286   If s65521 = t27_5008.s135 Then
  823.           i5221 = 110
  824.         End If
  825.  7317   If s65521 = t27_5008.s150 Then
  826.           i5221 = 150
  827.         End If
  828.  7348   If s65521 = t27_5008.s165 Then
  829.           i5221 = 250
  830.         End If
  831.  7379   s5211 = "New Weapon! You got a " + Trim(s65521) + "!"
  832.         i5192 = 11
  833.         i5194 = 21
  834.         i5229 = Val(Trim(t26_4656.s79))
  835.         i5229 = i5229 + i5225 + i5221
  836.         t26_4656.s79 = Str(i5229)
  837.         t26_4656.s40 = s65521
  838.         If Len(t26_4656.s79) > 3 Then
  839.           t26_4656.s79 = "999"
  840.         End If
  841.  7537   If Len(t26_4656.s79) <= 3 Then
  842.           t26_4656.s79 = Pad(t26_4656.s79, 3)
  843.         End If
  844.  7585   If Len(t26_4656.s40) <= 15 Then
  845.           t26_4656.s40 = Pad(t26_4656.s40, 15)
  846.         End If
  847.  7633   Sub5363
  848.       End Sub
  849.  
  850. '! Called 1 time
  851.       Sub Sub7642
  852.         Dim s65521 As String*15
  853.  
  854.         i5215 = 1
  855.         i5217 = Val(Trim(t26_4656.s38))
  856.         If i5217 = 1 Then
  857.           s65521 = t28_4828.s0
  858.         End If
  859.  7706   If i5217 = 2 Then
  860.           s65521 = t28_4828.s15
  861.         End If
  862.  7737   If i5217 = 3 Then
  863.           s65521 = t28_4828.s30
  864.         End If
  865.  7768   If i5217 = 4 Then
  866.           s65521 = t28_4828.s45
  867.         End If
  868.  7799   If i5217 = 5 Then
  869.           s65521 = t28_4828.s60
  870.         End If
  871.  7830   If i5217 = 6 Then
  872.           s65521 = t28_4828.s75
  873.         End If
  874.  7861   If i5217 = 7 Then
  875.           s65521 = t28_4828.s75
  876.         End If
  877.  7892   If i5217 = 8 Then
  878.           s65521 = t28_4828.s75
  879.         End If
  880.  7923   If i5217 = 9 Then
  881.           s65521 = t28_4828.s75
  882.         End If
  883.  7954   If i5217 = 10 Then
  884.           s65521 = t28_4828.s75
  885.         End If
  886.  7985   If t26_4656.s118 = "BIRTHDAY SUIT  " Then
  887.           i5223 = 0
  888.         End If
  889.  8014   If t26_4656.s118 = t28_4828.s0 Then
  890.           i5223 = - 10
  891.         End If
  892.  8047   If t26_4656.s118 = t28_4828.s15 Then
  893.           i5223 = - 20
  894.         End If
  895.  8084   If t26_4656.s118 = t28_4828.s30 Then
  896.           i5223 = - 30
  897.         End If
  898.  8121   If t26_4656.s118 = t28_4828.s45 Then
  899.           i5223 = - 40
  900.         End If
  901.  8158   If t26_4656.s118 = t28_4828.s60 Then
  902.           i5223 = - 50
  903.         End If
  904.  8195   If t26_4656.s118 = t28_4828.s75 Then
  905.           i5223 = - 60
  906.         End If
  907.  8232   If t26_4656.s118 = t28_4828.s90 Then
  908.           i5223 = - 70
  909.         End If
  910.  8269   If t26_4656.s118 = t28_4828.s105 Then
  911.           i5223 = - 80
  912.         End If
  913.  8306   If t26_4656.s118 = t28_4828.s120 Then
  914.           i5223 = - 90
  915.         End If
  916.  8343   If t26_4656.s118 = t28_4828.s135 Then
  917.           i5223 = - 100
  918.         End If
  919.  8380   If t26_4656.s118 = t28_4828.s150 Then
  920.           i5223 = - 110
  921.         End If
  922.  8417   If t26_4656.s118 = t28_4828.s165 Then
  923.           i5223 = - 120
  924.         End If
  925.  8454   If s65521 = "BIRTHDAY SUIT  " Then
  926.           i5219 = 0
  927.         End If
  928.  8479   If s65521 = t28_4828.s0 Then
  929.           i5219 = 10
  930.         End If
  931.  8506   If s65521 = t28_4828.s15 Then
  932.           i5219 = 20
  933.         End If
  934.  8537   If s65521 = t28_4828.s30 Then
  935.           i5219 = 30
  936.         End If
  937.  8568   If s65521 = t28_4828.s45 Then
  938.           i5219 = 40
  939.         End If
  940.  8599   If s65521 = t28_4828.s60 Then
  941.           i5219 = 50
  942.         End If
  943.  8630   If s65521 = t28_4828.s75 Then
  944.           i5219 = 60
  945.         End If
  946.  8661   If s65521 = t28_4828.s90 Then
  947.           i5219 = 70
  948.         End If
  949.  8692   If s65521 = t28_4828.s105 Then
  950.           i5219 = 80
  951.         End If
  952.  8723   If s65521 = t28_4828.s120 Then
  953.           i5219 = 90
  954.         End If
  955.  8754   If s65521 = t28_4828.s135 Then
  956.           i5219 = 100
  957.         End If
  958.  8785   If s65521 = t28_4828.s150 Then
  959.           i5219 = 110
  960.         End If
  961.  8816   If s65521 = t28_4828.s165 Then
  962.           i5219 = 120
  963.         End If
  964.  8847   s5211 = "New Armor! You got the " + Trim(s65521) + "!"
  965.         i5192 = 11
  966.         i5194 = 20
  967.         i5227 = Val(Trim(t26_4656.s76))
  968.         i5227 = i5227 + i5223 + i5219
  969.         t26_4656.s76 = Str(i5227)
  970.         t26_4656.s118 = s65521
  971.         If Len(t26_4656.s76) > 3 Then
  972.           t26_4656.s76 = "999"
  973.         End If
  974.  9005   If Len(t26_4656.s76) <= 3 Then
  975.           t26_4656.s76 = Pad(t26_4656.s76, 3)
  976.         End If
  977.  9053   If Len(t26_4656.s118) <= 15 Then
  978.           t26_4656.s118 = Pad(t26_4656.s118, 15)
  979.         End If
  980.  9101   Sub5363
  981.       End Sub
  982.  
  983. '! Called 1 time
  984.       Sub Sub9110
  985.         Dim i65532 As Integer
  986.         Dim i65534 As Integer
  987.  
  988.         i5215 = 1
  989.         i5209 = Rnd * 100 Mod 100 + 1
  990.         If i5209 >= 0 And i5209 <= 10 Then
  991.           i65534 = 1
  992.         Else
  993.  9188     If i5209 >= 11 And i5209 <= 20 Then
  994.             i65534 = 2
  995.           Else
  996.  9227       If i5209 >= 21 And i5209 <= 30 Then
  997.               i65534 = 3
  998.             Else
  999.  9266         If i5209 >= 31 And i5209 <= 40 Then
  1000.                 i65534 = 4
  1001.               Else
  1002.  9305           If i5209 >= 41 And i5209 <= 50 Then
  1003.                   i65534 = 5
  1004.                 Else
  1005.  9344             If i5209 >= 51 And i5209 <= 60 Then
  1006.                     i65534 = 10
  1007.                   Else
  1008.  9383               If i5209 >= 61 And i5209 <= 70 Then
  1009.                       i65534 = 15
  1010.                     Else
  1011.  9422                 If i5209 >= 71 And i5209 <= 80 Then
  1012.                         i65534 = 20
  1013.                       Else
  1014.  9461                   If i5209 >= 81 And i5209 <= 90 Then
  1015.                           i65534 = 25
  1016.                         Else
  1017.  9500                     If i5209 >= 91 And i5209 <= 99 Then
  1018.                             i65534 = 30
  1019.                           Else
  1020.  9539                       If i5209 = 100 Then
  1021.                               i65534 = 50
  1022.                             End If
  1023.                           End If
  1024.                         End If
  1025.                       End If
  1026.                     End If
  1027.                   End If
  1028.                 End If
  1029.               End If
  1030.             End If
  1031.           End If
  1032.         End If
  1033.  9561   s5211 = "An INCREASE of " + Str(i65534) + " Experience!"
  1034.         i5192 = 11
  1035.         i5194 = 23
  1036.         i65532 = Val(Trim(t26_4656.s55))
  1037.         i65532 = i65532 + i65534
  1038.         t26_4656.s55 = Str(i65532)
  1039.         If Len(t26_4656.s55) > 7 Then
  1040.           t26_4656.s55 = "9999999"
  1041.         End If
  1042.  9695   If Len(t26_4656.s55) <= 7 Then
  1043.           t26_4656.s55 = Pad(t26_4656.s55, 7)
  1044.         End If
  1045.  9743   Sub5363
  1046.       End Sub
  1047.  
  1048. '! Called 3 times
  1049.       Sub Sub9752
  1050.         Dim i65532 As Integer
  1051.         Dim i65534 As Integer
  1052.  
  1053.         i5215 = 1
  1054.         i5209 = Rnd * 100 Mod 100 + 1
  1055.         If i5209 >= 0 And i5209 <= 10 Then
  1056.           i65534 = 500
  1057.         Else
  1058.  9831     If i5209 >= 11 And i5209 <= 20 Then
  1059.             i65534 = 1000
  1060.           Else
  1061.  9871       If i5209 >= 21 And i5209 <= 30 Then
  1062.               i65534 = 1500
  1063.             Else
  1064.  9911         If i5209 >= 31 And i5209 <= 40 Then
  1065.                 i65534 = 2000
  1066.               Else
  1067.  9951           If i5209 >= 41 And i5209 <= 50 Then
  1068.                   i65534 = 3000
  1069.                 Else
  1070.  9991             If i5209 >= 51 And i5209 <= 60 Then
  1071.                     i65534 = 4000
  1072.                   Else
  1073. 10031               If i5209 >= 61 And i5209 <= 70 Then
  1074.                       i65534 = 5000
  1075.                     Else
  1076. 10071                 If i5209 >= 71 And i5209 <= 80 Then
  1077.                         i65534 = 7500
  1078.                       Else
  1079. 10111                   If i5209 >= 81 And i5209 <= 90 Then
  1080.                           i65534 = 10000
  1081.                         Else
  1082. 10151                     If i5209 >= 91 And i5209 <= 99 Then
  1083.                             i65534 = 12500
  1084.                           Else
  1085. 10191                       If i5209 = 100 Then
  1086.                               i65534 = 25000
  1087.                             End If
  1088.                           End If
  1089.                         End If
  1090.                       End If
  1091.                     End If
  1092.                   End If
  1093.                 End If
  1094.               End If
  1095.             End If
  1096.           End If
  1097.         End If
  1098. 10214   s5211 = "@0D@" + Str(i65534) + "@0D@ GOLD!! You're FILTHY RICH!"
  1099.         i5192 = 11
  1100.         i5194 = 22
  1101.         i65532 = Val(Trim(t26_4656.s62))
  1102.         i65532 = i65532 + i65534
  1103.         t26_4656.s62 = Str(i65532)
  1104.         If Len(t26_4656.s62) > 7 Then
  1105.           t26_4656.s62 = "9999999"
  1106.         End If
  1107. 10348   If Len(t26_4656.s62) <= 7 Then
  1108.           t26_4656.s62 = Pad(t26_4656.s62, 7)
  1109.         End If
  1110. 10396
  1111.       End Sub
  1112.  
  1113. '! Called 2 times
  1114.       Sub Sub10399
  1115.         Dim i65534 As Integer
  1116.  
  1117.         i5215 = 1
  1118.         i5209 = Rnd * 100 Mod 100 + 1
  1119.         If i5209 <= 10 Then
  1120.           GoTo 10536
  1121.         Else
  1122. 10466     If i5209 >= 11 And i5209 <= 95 Then
  1123.             GoTo 10846
  1124.           Else
  1125. 10504       If i5209 >= 96 And i5209 <= 100 Then
  1126.               GoTo 10675
  1127.             End If
  1128.           End If
  1129.         End If
  1130. 10536   s5211 = "A Sex Change Operation!"
  1131.         i5192 = 11
  1132.         i5194 = 21
  1133.         If UCase(t26_4656.s75) = "M" Then
  1134.           t26_4656.s75 = "F"
  1135.         Else
  1136. 10606     t26_4656.s75 = "M"
  1137.         End If
  1138. 10621   If Len(t26_4656.s75) > 1 Then
  1139.           t26_4656.s75 = Pad(t26_4656.s75, 1)
  1140.         End If
  1141. 10669   GoTo 10937
  1142. 10675   i5215 = 2
  1143.         s5211 = "DEATH! You have been sacrificed!!"
  1144.         i5192 = 11
  1145.         i5194 = 21
  1146.         i65534 = 0
  1147.         t26_4656.s142 = Str(i65534)
  1148.         t26_4656.s136 = "NO "
  1149.         If Len(t26_4656.s142) <= 4 Then
  1150.           t26_4656.s142 = Pad(t26_4656.s142, 4)
  1151.         End If
  1152. 10792   If Len(t26_4656.s136) <= 3 Then
  1153.           t26_4656.s136 = Pad(t26_4656.s136, 3)
  1154.         End If
  1155. 10840   GoTo 10937
  1156. 10846   s5211 = "Total Healing!"
  1157.         i5192 = 11
  1158.         i5194 = 29
  1159.         t26_4656.s142 = t26_4656.s146
  1160.         If Len(t26_4656.s142) > 4 Then
  1161.           t26_4656.s142 = Pad(t26_4656.s142, 4)
  1162.         End If
  1163. 10937   Sub5363
  1164.       End Sub
  1165.  
  1166. '! Called 1 time
  1167.       Sub Sub10946
  1168.         i5209 = Rnd * 100 Mod 100 + 1
  1169.         If i5209 >= 0 And i5209 <= 10 Then
  1170.           Sub9110
  1171.         Else
  1172. 11016     If i5209 >= 11 And i5209 <= 20 Then
  1173.             i5215 = 1
  1174.             s5211 = "Nada, Nothing, Zilch, Zero!"
  1175.             i5192 = 11
  1176.             i5194 = 24
  1177.           Else
  1178. 11078       If i5209 >= 21 And i5209 <= 30 Then
  1179.               Sub9752
  1180.             Else
  1181. 11116         If i5209 >= 31 And i5209 <= 40 Then
  1182.                 Sub10399
  1183.               Else
  1184. 11154           If i5209 >= 41 And i5209 <= 50 Then
  1185.                   i5215 = 1
  1186.                   s5211 = "Not a dang thing!"
  1187.                   i5192 = 11
  1188.                   i5194 = 28
  1189.                 Else
  1190. 11216             If i5209 >= 51 And i5209 <= 60 Then
  1191.                     Sub6108
  1192.                   Else
  1193. 11254               If i5209 >= 61 And i5209 <= 70 Then
  1194.                       Sub9752
  1195.                     Else
  1196. 11292                 If i5209 >= 71 And i5209 <= 80 Then
  1197.                         Sub7642
  1198.                       Else
  1199. 11330                   If i5209 >= 81 And i5209 <= 90 Then
  1200.                           Sub9752
  1201.                         Else
  1202. 11368                     If i5209 >= 91 And i5209 <= 100 Then
  1203.                             Sub10399
  1204.                           End If
  1205.                         End If
  1206.                       End If
  1207.                     End If
  1208.                   End If
  1209.                 End If
  1210.               End If
  1211.             End If
  1212.           End If
  1213.         End If
  1214. 11400
  1215.       End Sub
  1216.  
  1217. '! Called 1 time
  1218.       Sub Sub11403
  1219.         Dim s65528 As String
  1220.         Dim s65532 As String
  1221.  
  1222.         If Exists(s4463 + "lachex" + s5253 + ".dat") Then
  1223.           i4654 = FreeFile
  1224.           Open s4463 + "lachex" + s5253 + ".dat" For Input As i4654
  1225.           Input #i4654, s65532
  1226.           Close i4654
  1227.           s65528 = Left(s65532, 15)
  1228.           If UCase(s65528) = UCase(t26_4656.s0) Then
  1229.             GoTo 11685
  1230.           Else
  1231. 11562       GoTo 11574
  1232.           End If
  1233. 11568   Else
  1234. 11574     Cls 
  1235.           MorePrompt(0)
  1236.           Locate 3, 12
  1237.           Print "@84@ERROR!! ERROR!! ERROR!! ERROR!! ERROR!! ERROR!! ERROR!!"
  1238.           Locate 5, 12
  1239.           Print "@09@This Program can only be run from a REGISTERED COPY"
  1240.           Locate 6, 12
  1241.           Print "of Lachrymator. This program cannot be run on it own...."
  1242.           Locate 7, 12
  1243.           Print "@09@According to internal file verification routines..."
  1244.           Locate 8, 12
  1245.           Print "@09@The installed copy of Lachrymator is NOT REGISTERED!"
  1246.           Locate 9, 12
  1247.           Print "@09@PLEASE ask your SysOp to Register Lachrymator..Thanks!"
  1248.         End If
  1249. 11678   Sub4781
  1250.         End 
  1251. 11685
  1252.       End Sub
  1253.